home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2003 June / macformat-130.iso / mac / Reviewed⁄Demos / Spearhead Demo / demota / pak1.pk3 / global / randomorder.scr < prev    next >
Encoding:
Text File  |  2002-10-21  |  358 b   |  13 lines
  1. // Permutates the array local.array.
  2. // local.array must start indexing at 0.
  3.  
  4. start local.array:
  5. local.count = local.array.size
  6. for (local.i = local.count - 1; local.i > 0; local.i--)
  7. {
  8.     local.rand = randomint local.count
  9.     local.temp = local.array[local.i]
  10.     local.array[local.i] = local.array[local.rand]
  11.     local.array[local.rand] = local.temp
  12. }
  13.